home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / misc / elcheapofax.lha / Hook.s < prev    next >
Text File  |  1993-04-02  |  369b  |  15 lines
  1.     .text
  2.     .globl    _HookEntry
  3. h_SubEntry =  12
  4.  
  5. _HookEntry:
  6.     movl    a6,sp@-
  7.     movl    a1,sp@-            | ; push message packet pointer
  8.     movl    a2,sp@-            | ; push object pointer
  9.     movl    a0,sp@-            | ; push hook pointer
  10.     movl    a0@(h_SubEntry),a0     | ; fetch C entry point ...
  11.     jsr    a0@               | ; ... and call it
  12.     lea    sp@(12),sp             | ; fix stack
  13.     movl    sp@+,a6
  14.     rts
  15.